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~H 1 

A MI SC ELLAS EY OF CO WERT PROGRAMMING 


CO WERT siu res with other p tag r asimi Jarvg,u&&es the circumstance 
that it is easier Ce evaluate the language an-d to learn its use if it is 

m 

possible to scrutinize -is repreventative sample of programs ■which effect 
t yp i ca I but s imp I e and eaai Ly uni era too d c a1c u1 at iona. Consaquan t ly we 
have gathered together several examples of varying degrees of difficulty 
in ordti to shov CONVERT in -actiotl- In each ewe the CONVERT program ¥ 
written as a LI5F function ready £nf execution in CTSS ± is shorn , together 
with the results of its application to a small variety of arguments> and 
a general ex pi anation of che program, its intent t fora of its arguments and 
tnethod of its operation. When the notation (()) CLOCK (T) 

app^^rSfi the tima of elocution hj$ been ■d&t&rndne-d* and ts Shown Y in tenths 
of seconds immediately ter the result has been printed . 

Since there is no particular organisation to the selection of 
Examples* we here give a brief catalogue of them. 


(REVERE L) 
(FLIP t) 
(CONCAT A B) 

(TTE L) 

(ffEBCE A B) 
flTMKERGE L) 

(NCtfUK E) 

E) 

(VguELS H) 

(STAGGER L) 

(GATHER U 

(SI 1 ESETS E) 
(PERMUTATIONS 

(*MAE1E X L) 


reverses the order o.f elegants C>n & ll^t 

reverses a list as well 0& &11 its SubLiati 

a CO WERT version of APPEND 

£ multiple APPEliD 

■collates the elements of two list# 

produc g s two lists ji each containing al ternete 
elements of the Hat L- 

erases all numb an frost the top level of a list 

erases the numbers £tom all levels of a list 

forms a I 1st of nil vovftls in s list of letters 
or Other expressions 

places the elements -of L Alternately at the beginning 
and end of a tltw list 

inv-erts the operation of STAGGER, collecting together 
elements from the. beginning and end of a 1 i#t 

produces all the subsets o£ the net £ 

Sjgivas a list of all possible permutations of the 
elements of the list S 

shows the location of all X 1 a in the list L by piecing 

a star instead of any expression which nowhere cent#5 

an X 
■ 



(TOEttJt 7 ! Li 


transforms n-ary lnfi* algebraic expressions to the 
binary prefix form 

(tfOUD W) makes string transformations derived from the word 

problem 

(FEHGE^ S} lists all the pcrmj tat ions of the set by first 

generating a skeleton which will then generate the 

■i 

permitat ions 

(FE X Y) calculates the Poisson Brocket of two algebraically 

defined {polynomials) X and Y 

(PATHS A E Ml lists all paths between the poinca A and E in the 

network whose primitive links ar& given by K 

{POLY) in interactive polynomial handling program which 

will rtad an arbitrarily complicated pulynsmial* 
redyoe it to an internal form which Is a list of 
Coefficients of itE powers * output it in forzrSj 
evaluate it p etc 



The function (REVUES L) tbo top I-ev^l elements of its argument 

L- i. e., if L is (ABC D) f then (REVERS L) is (D C B A) ■ 

Tn this examplej the first arg^rniOPt of COKVERT is () , that is* the 
dictionary M is empty. In the dictionary L* second argument of the function 
CO^VEET, we declare to X end (XXX) hs variables in the UAR mode. 

The third argument is 1* the expression we went to reverse. Finally, the fourth 
argument contains one rule-set named Cl, which contains a single rule: 

( a mr (m)i x) > 

. ■ 

The loft half of this rule Is tho pattern (X XXX) B whJEcli dtSB&CtS Che 
11st we want to reversft Into CAE and CIiR P If this dissect ion is passible* 
that is h If (X XXX) matches* we proceed to replace the skeleton ((*BEGS* (XXX)) X), 
which 1$ composted of two pieces in this case * namely ( fl BEGE* (XXX)) and X, 

The w&hdO of (XXX)) ia computed recursively* applying the entire 

original CQ3TVERT program to (XXX) —we are reversing. the list (XXX)- and 

then taking the contents of this result as Its valve. 

The value of X is th^ expression which matched with it during tho pattern 
cooperissan, that is* the CAR of the list to be reverSi?di 

IS 

Having computed the values of the skeletons (*EE-G^* (XXX)) and X* wo 
dimply put them together* as the skeleton (( ft BEGN* (XXX)) X) implies t and this 
i@ the result of our transforation. 


DEF I liU 

C3EVEAS UA-LIJA £L) (CuKfVIElT 

f) 

wj-rec i [)(u] n 

L 

E<1U3TEC Cl c 

C U XXX) E ( *3^* (m) } X) ) 

1 r ) 

))) 

) ) 


r canvrt 


351.u 

I!qgJ (frew'ir^)) 
Ml 


r^Viiir5 { C) ) 

NIL 

rev^rs C {1 >.)) 

( 2 1 ) 

r »v ^ r 3 E f i ^ *: J = f 'i h )} 

Cl G r £ 7 c 1 :,) 

r-avars ({ a h c U >) | ^ f(= *./)) f 3 jj 
(i"i F E (« * /)) 1 ) i I 2) " ^ ,-j 


s Lpp 

1 1,055+7,350 



pr hit f 1 i P M $o 

0 5 7+3 

■». . 

,F!_rP Lt$p 02/07 3057.3 

30010 0EFMS(C 

00023 {rllf (LM3DA Cl) (Ca.'lveftT 

00333 {j 

00343 cquote { x ix;oo n 

33033 .L 

aac&o c^ots t ci t 

30070 ( (X XXX) 4 f *3£3N* (XXX)) C*3 EjiI> X)) ) 

00023 )]) 

00030 )>) 

30130 )) 

R t 730*.250 

r convrt 
a 037.3 
loaJ C(Fllp)) 

NIL 

f:u4-.-- r i —■■ 1 ■ t ■ ■ fa ■ > .■ ^ *'• - 

n ipt o > 

NIL 

fl ip {( 1 2) ) 

(2 1) 

flip ( fa -3 c ]? F \ h)) 

(H 3 F E □ C 3 A> 

flip U 3 b c Cl 2) d e C C» * /)> f s)) 

(13 ? C if * -}) E D l 2 1) C B A) 

flip (CCa) tla (e J> f t> Ci i CCj k? n hi) n>> 

(N Cl-3 CL (K J)J I '1) 3 ? IS O C) i) (A) ) 

. ' I 

$tgp 

H 1, 7&D+-3*203 


The function {FLIP L) referees the list L, *s well as all its aubliatff s 
etc■^ it all levaIs. 

Compare the definition with fchsl of (RUtfEftS L) ; the rule^set Cl Contains 


now the rule 


t (X XXX) CC^EECM* (m)) (*BKW- X)) ) 


that is ? che skeleton £=BEGX= X) now replaces X, and ds res pfl-us able for 
applying the entire funccion to th& clement K a allowing, in this way 
reversion In 3ll levels, while the skeleton (*BEGK : * ) flips the CPK, 


The t ami no I conditions are. hidden In -his e^arjple^ if L is an atom ot 
jin «frpCy list, (FLIP L) la L itselfj without change* Thi^ could he accorsplish^d 
with jin additional rule , ^ 

which is unnecceeaary because-! as hn<>W : * when we exhaust a rule-- i srE without 
finding any match fer out esipres^ien, we re I - urn this last without change es 
a value of the transformation* 
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(COISCAT A BO i£ similar to the lisp function (APPEND A B) ; rakee 4 
air_g.lt list of the eleritLits r>£ two lists- 

Wa Staft by defining COSCAT as a lisp fyo®tion of two variables, 

A and B, whose value is computed with the help of the CONVERT function, 

Th$. argument a of convert are; 

O -- the dlcc_^ifiafy li is er-.pty; ttO Dcde declareions era MCCflsaaxy- 

{ (XXX) (TTY) ) — We define in the dictionary I to (XXX) ana (YYY) 

es frfl£n.cnt variables in the 'JAR or undefined mode, 

(LIST A B) - E, the third argument of CONVERT* ia a list contai¬ 

ning the two lists we want to tie together. 

--- - R± tEie fourth argument of CONVERT, contains cne 

set of rules, with the nao.e Cl, with a simple rule:. 

( ((XXX) (YYY)) (XXX YVT) ) 


print conca t lisp 
H 701.6 

CtiNCAT LISP 03m 0701.7 

DEFINE* ( 

(CfiNOAT (LAhi&DA (A BJ (CONVERT 

() 

(QUOTE( (XXX) £V¥Y) )) 

(LIST A 3) 

(QUOTE(Cl ( 

( ((XXX) (YYY)) (XXX YYY) ) 

))} 

m 

j j '" 


r CPrtvrt 
i-J 7 02,2 

1 cad ((conest)) 

N I L 

eancas; % () O ) 

N I L 

eoncat (Ca fc c ) (1 2 5 ■»)) 

(A a C 1 2 3 V) 

conceit C (a b c (d) o f) (e (h) F j k 1 m)J 
{A 3 C (Dl E F G (HI I J K L iU 

s top 

R ,SS0*3,2S3 

concat Is similar to the lifunction APPEND * 
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(TIB L) forms a multiple APPEND of tilt elements of L; L is supposed 
to be of the form { (Al A2 .,. An) <BI B2 .,,) , . , (G1 C2 ... GkJ) 

Bad the aftiwCr or value ia (Al A2 ... An M E2 ,,, Cl G2 ... fife) 

The fourth argument of CONVERT contains a single rule, namely 
f-ir (=ITZK= (JJJ) JJJ) ) 


J 

We know that OlTER= J El} will produce a list of the form (L L ... L ) 

Li. n 

where each element L. is formed by replacing the skeleton L, which will 

probably use J inside it; the different values of L. are due to the fact 
that J sraflges over the elements of K. 1 

In this case* (JJJ) ranges ever the elements of =SAME=* that is. 
pyer elements of the list we went tc tie, and, for each value of (JJJ), 
wo replace the skeleton JJJ. In this way the desired effect is achieved. 

print tie tjsp 
154.2 

TIE LE$P 02/07 0154,2 


DEFIKEU 

(Tic (LAM32)A (L) (CONVERT 
() 

(QLUJTSt (XXX) (YY'O )) 

L 

(Q'J'OT E < C1 ( 

£ ** £=]TEl=i (JJJ} «SV1E» JJJ) ) 

))) 

))) 

)) 

ft ,533+.233 


r convrl 
l) 154.6 
1oaJ t(t fe)) 

NIL 

tie It (a (>) (c 4 e F> )) 

(AJCDcF) 

t i$ {'( (a b) (: 4 e f) h t J k) (1) (in) £) (nop) )) 

(,l 3 !] 3 E F r f 'i 1 j .( L M N 0 P) 

tieu o n t> o c) n o o )) 

lit L 

t i e (( C () > ( u ) (£)) (CO)) (() ) (£())) ) 1 

(MIL JUL Fit L <331L) NIL (NIL) ) 

Stop 

a ,?sa+ 7,350 
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(MERGE A B) p roduc e s, f rom A ■* (Al A2 . . * Am} 

3 - (31 G2 Bm} a Hat (AL B1 A2 B2 ... Am Bm) , 

The rule set Cl compr i$ eg two rules: the first says: ( (() ()) O ) 
that is, the merging of Q with (} produces {). 

The second rule simply identifies X and Y —the t^O Car f s— h puts them 
X to the left of Y in the result, and begins with ((XXX) (YYY)) t the two edr's- 


print, mur^e I E so 
U 203,9 

ME RGE USP G2/J7 9203,0 

defined 

£MEH0£ (LAM33A (A3) (CONVICT 

n 

Cquote( x y txxx} trm )) 

(U5T A 0} 

£ QUOTE( cl < 

c (<> o> n ) 

£ ((X XXX} (Y YYY)J {X Y (‘TEQ'I* £<XXX> (YYY}>)) } 

J>> 

) )> 

H 

3. .GlG+.t03 


r convrt 
M 209, 5 
toal ((imar'jjs}} 

NIL 

rten*£{ {a b c) {1 2 3 ) ) 

(A 1 3 2 C 3) 

me r s; e { (1 2 3 ! t 50) (abed e f) J 

!U H K u 5'E 5 F) 

n&fr;e ( t) () ) 
illL 

£ (1 2 t3) i») (a (Is) (t) ■!) )}" 

(1 A 1 (3) £3> (C) h TJ 


atop 

R 1 , 2Io+0*i)33 
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LTTMER&.E takes a Ii?c of &uen langth ar.d separates Its odd and ev£n elements 
into two separdt* lists- Defined in LISP takes tha form: 

(UKMEKG£ {LAHEDA (L) (IF (NULL L) 

(LIST L L) 

((LAMBDA (X) (LIST (CONS (CAR U (CAR 31)} 

(CONS (CADEt L> (CABR X))}) 
(UNMERtE (CDDR L))) ))) 

■ P “b 

Again the four at£om.ent£ Of CONVERT are mostly trivial. However* one may sec 
how the skeleton (^REGS*- (liXXJ) corresponds to the 

({LAMBDA (X) -.-} (UNftElfiGE (CRPR L))) portion of the Lisp function* slfitc 
we ore dealing with a Common subexpression which we wish to cORRotO in 
advance. Since there Is reasonable certainty of obtaining a list with 
two sublists* the sol it Ary rule of the skeleton = CONT” simply servos to 
give thdSO Sublists names and to identify them as fragments- The variables 
X and T ward dofirtCd in the outer pattern, which is why *CQNT” rather 
than "REPiy was used In proceeding to the inner rule set. 


DEFINED 

{UNMERGE (LAM 33A (X) {CONVERT 
U 

(QUOTE( X ¥ CXXX} (UUU) (YVV) )) 

X 

(QUJTE( Cl C 
( (1 (Of)] ) 

{ (X ¥ XXX) (=CQilT= C=3EGN* lm)> C2 ( 

( v(UUUJ £VVV)) {(X UJU1 (¥ VVV)) ) 
>)) 

>) ) 

) ) . 

r cyo or t 

W 2 1 J t 2 

1 Oa i ((uoiivarT) ) 

N l L 

un. , n-3F‘^e ( ( a 1 h 1 c 3 )) 

(U 3 C) (1 Z in 

kr-nm-srg^ {Cl s^b-5 c 4-J 5 c & fJJ 
((1 a 5 4 $ &) (A 3 CD E F)) 

unnisrse (()) 

(NIL NIL) 


;j rtm^r*fj ({v f “ i r n y aJ) 
((VERY) if l ME)) 

urtmerse C(1 a 2 (b) (5) U) 4 I) ) 
( ( L 2 (3) 4) i\ (3) (C) D3 ) 

stop t 

1% 1*733 ^7*9>3 
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The function (KOffllM E) erase® all numbers from the top level of the Hat 

E, 

Basically, the yule is; ( (KXX V YYY) (XXX (*ft£FT* (YYY))) ) 

That is, if we identify a number In the expression, we copy the fragment to 

the left of this number -that is XXX— and repeat (that t$ T repeat 

the erasure) with YYY, the fragment co the right of this number. 

The definition ov V as PAT “HUH* 1 in the dictionary X was 

redundanti we COuld use instead the rule 

( (XXX =NUM= YYY) (XXX (*REPT* (YYY))) ) which does 

net use V- 

■ L 

Ed to that we use *XEPT* instead of *COXT+ because, when npplying 
the same process tc (YYY), we want to go back to our original dictionery, 
that is, vC want to unbind (XXX) and to restore it to its original definition 
as UAR variable, * BEGh’* coyTd be used instead of *EEvT*. with identical 
effects. We use *KEPT* instead of =PE?T= since we want a fragment as 
value; that is to soy, (“RfJFT= (YYY)) would produce a list without numbers 
in its top lave! , but we want the conterits of such s list, so we use *KEPT*. 

□ ErlN E(t 

UlQNUil (LAMBDA (£) (CONVERT 
(QUOTEt 
'V PAT 
■: >) 

CQUOTEt (XXX) C YfV) )) 

£ 

(QUOTE ( Cl ( 

( (XXX V YYY> (XXX C+HEPT* (YYY))) ) 

>)) 

)}) 

)) 

I I 

r copy* 1 «l 
L- f 24 KQ 

1 naU £ (aonun) > 

Ull 

ncirtUM ({ a b c 1 j ^ f ? 2 3 5? )) 

[A U ) : F G '!) 

nonuin( (L2J45&73)) 

rJ (L 

nonuio £(abSel(6)(an)) 

(A 1EL (6) I A H) 

nemo (( (1) (2) ((5 lt> 5) (5) 7 3 U) )> 

((L; (2) <(3 4) 3) (G> (3)) 


nonuio (( (I) 12 ) ((.i 4) 5) (G) 7 J UC3))> )> 
((x) 12> ((3 4) 5) (j) (((j)))) 


A 1*3J3*J,550 



in all levels, 


9 

nomJrrt* ef^siiS si] numbers from 3 'given list* 
co njjarc w3 th nonum 


print noiHii.1* 1 i s = 
W 317*5 


H0?lUM* LISP 02/07. 0517*5 


OEFI NEC t 

CHONUi-1 * (LAM30A (E) (CONVERT 
CdUOTEC 
V PAT =>NUM= 

)> 

{QUOTE< CXXX.> X (YYY) ) ) 

E ' 

(QUOTE C Cl C 

i ((XXX) YYY > (C*3EGU* (XXX) ) < * 3 £ G .1 * {YYY) ) ) ) 
( (=NUM» YYY } (-1E0N- (YYY)) ) 

( CX XXX) {X (*3EGN- (XXX))) ) 

)>> 

)}) 

)) 

R ,6o&+*300 


r convrt 

■fi 513.0 

toad <(nonum*)) 

NIL 

nonJirt* ((j b c 1 d e f .3 2 3 3 )) 

(A 3 C 0 E f G G) 

nOnU'll* (Cl 23 45 & 7 3)) 

NIL 

nomj'n* (( a b 5 e 1 (6) E a n >) 

(A 3 E L NIL ■! A H) 

I 

rtonuM* (C (1) Cl) (2) ((5 U 5) U) 7 3 ti) )) 

(NIL NIL NIL (NIL) NIL NIL) 

nsnun* (Ca tb (1 c) (2 3 33 J) {Ctf 3 2) 3 )) ) )) 

(A (3 (C ) (:)) ((( F 0) Ci)))) 

stnu 

R 2*01(3+7.310 

observe that tbe declsratton v pat 

was not usu I cool ^ be o.-t! tted. 


=nm= 



VOXELS US? 02/37 3123,3 

03310 Qc FI ;J E (( 

0 3 020 [VOXELS (LA-150A ( J) (CONVERT 

00330 (QUOTE( 

00 0*3 V BUY ("OR* A £ I 0 U) ' 

00050 £ VVV) PAY () ( (=Q3- V ■«) wm 

00000 >3 

00370 O 

00-33 3 W 

00030 (QUOTE { CL ( 

30100 ( (VVV) V) 

3 Q113 ) n 

00120 })) 

03133 J) 

R ,516+,2GG 


r eonvrt 
W 13 0 + -i. 

lodtd ((vowels)) 

NIL 

vowel s f(p r e f i x)) 

{E U 

vowe E $ ((s y n c h r }) 
NIL 

vowel 5 ((v o ? 

VQ’.fil S ((/owe! SH 

(0 E) 


vowel s ? . 

J 

v qiv e \ j { ( a =J r ( i ) e n a)) 

(A A A) 

vowels (( r o s (e) n b t u e U> h)> 
(0 U E) 

Stop 

R L. 305*3,513 


(VOWELS U) forms a List of the vowels present in the list V, in clie 
top level.. 

Tha dictionary H defines V in ths BCT mode* and (WV) in the PAT mode, 
VVV being a fragment. The pattern associated with (Vw) is 

(—OR— t} ({"O R” ■. “-=3“ WV>> i enc will mateh with a list which is either empty 
or starts wit. (ft) a vowel y or (b) anything else, and is followed by a 
fragment which matches WV. That is, (VYV) teats all the elements to see IE 
thty are either V (vwels} Or == (anything else) ; element 3 which tnitth with V 
AT* stored in a list, which inter becomes the value of V. 

lLiq argument !■:, fourth of CONVERT, contains a single set of rules, 
with name Cl, which contains the rule ( (VVV) V); that ia, if the eitpresion 
matches (VW) , we ratvr.n V a a value. 



Among COttVERT programs which rearrange the Elementa of a list, (STAGGER L} 
will alternately place the aliments of L at the front ant end of a new list, 
while (GATHER L) will execute the inverse process. Thus, if L * (J 2 3 L 5&), 
(STAGGER L) = (1 3 5 U 2), and (GATHER L) = (162534), The key to 
STAGGER is the pule 

((X T XXX) (X REVERT* (XXX)) Y)> 

in which successive elements X and Y are moved to the extreme ends of the 
bew list, and the process continued by moving the regaining elements of L, 
Similarly transformed, into the middle of the new list. Reversal o£ Che 
process depends 00 the rule 

(fX XXX Y) (X Y (*REPI* (XXX)))) 

in which the extreme' elements are recognized, placed on the new list, followed 
by those elements resulting from a repetition of the process on the Diddle cf the 
list, 

gaUinr U0 1 2 3 h 5 * 7 & 9>) 

(0913273045) 

stagger <(GlZ3t,5&?39n 
(02 46 S9 7531) 

gather ((9 2 4 G £ 9 7 $ 3 1)) 

(01234567E3) 


( STAGOf f? ( LAMBDA ( L> (CONVERT 
(QUOTE £ 

)) 

(QUOTE ( 

X Y (XXX) 

) > 

L 

(QUOTE (*0 ( 

<<X Y XXX) (x (*REPT * (XXX)) Y) ) 

))) 

>)) 


(0,'uriCi: (LAi'idpA (L) (CtUJVEkT 

(QUOTE ( 

. c " 

)> 

(QUOTE ( 

X Y (XXX) 

>) 

L 

(QUUTE (*0 ( 

( u xxx y; (X Y £*|(EJ»T* (XXX) ) 3 ) 
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(SUBSETS S) produces all the subsets of the set S. 

01 Is & £et &f two rules, the first of which says that the only subset 
of art empty S 4 t U afl empty set. 

The second rule identifies X with the CM of S a XXX with it§ CUX; 
we then compute [=BECN= , = [XXX}) ? the Subsets of (XXX) * £tuj we bltid sutk result 
to the variable (AAA) :, we then replace the skeleton 
[AAA [*11ER* (J) (AAA) (X J})) 

This skeleton containts two parts or halves^ the first is simply AAAj that 
±s T the subsets of the Car arc also subsets of the who 1ft list; L he. other 
part (*ITEK fi (J) (AAA) (X J)) adds X to each element of the subsets of 
the Cits 

DEF1HEU 

(SUBSETS ( LAH5DA (3) (COfll/ERT 
t > 

(QUOTE ( 

. . Lib 1 . 

X (XXX) 

- >) 

$ 

CQUOTE { Cl c 

£ O U>> ) 

( (X XXX} {■SKEL'f CMA) EXPfl C=BEGN= (XXX). 1 .. . 

{AAA COLTER* £0) (AAA) (X JJJ) >> 

>)) " ■ ' r 

))) 

)) 

r convrt 
W 6 li a. 4 

load CCsub5et)) 

U 1 L 

subsets CO) 

(NIL) 

subsets UlJ) 

(NIL can 

subsets (Cl 2i > 

(NIL £2) (1) n 2)3 

subsets ({1 2 3 t)j 


CM 1 L 

Cit) 

(3) 

£3 

t) 

(2) 

(2 

4) 

C2 

3} 

C 2 

$ 

it) 

Cl) 

Cl 

<0 

Cl 

3) 

Cl 

3 

Is} 

(1 

2} 

(1 

2 

43 

(l 2 

3) 

Cl 

£ 

3 

4>) 






subsets CCa 

b 

c d 

ei) 













(rut 

{E) 

(Cl) 

(0 

E> 

CC) 

(C 

E) 

CC 

0) 

cc 

D 

E) 

CD) 

[3 

E) 

(B 

0) 

( B 

D 

E) 

Cr3 

C) 

(3 

C 

£J 

(B C 

D) 

£3 

C 

D 

t } 

CA 

> CA 

E) 

CA 

D) 

CA 

D 

E) 

(A 

C) 

(A 

C 

E) 

CA 

C D ) 

CA 

C 

D 

E) 

CA 

Ei) 

CA 'i 

E) 

CA 

3 

b ) 

(A 

a 

0 F.) 

(A 

1} C) 

CA E 

c e; (a fi 

C 

D) 

CA 

E 

C U 

E ) ) 





S Cpp 

ft 2*483+9.133 


■* 
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(PERJJITATlQiflS S) jives a list o»£ #11 possible p&rr:utations of the elements 
of S. 

The fearth argument of CDNVEftT contain,® no’J t^Q sttts of rules* 
namely Cl ani £2 - 

The first rule of Cl isi ( (X) ((X)) ); if the list S has only one 
element X, the answer Is ((X]) + 

(X XXX) is the pattern of the second tult? h which identifies CAR and CCR; 
ifter tMs a (»BKEL* A EXFR X ,,-} doftfifcfi A as the valu^ of X --(the CAft)— in 
Che EXFF. mode, and prOCt&ds to replace the skeleton 
H*ITER* J (-&E0K* Cm))' (*RfFT* (J {)) Cl)} 

In this skeleton P (=BEGK= (XXX)) computes recursively the permutation® of 
(XXX) —the CDR"s and, with J ranging over each one of the elements of 
this List of permutations * = IT BEL” proceeds to make a 11 . 5 : t qf the results of 
replacing the skeleton ( fi FlEPT* (J ()) C2} . 

This last skeleton applies tc (J Q) the set C2 of roles 5 ifl Other 
words, for each element J of the permutations of (Xfttf) P we form t'ht subexpression 
(J Q) and apply co it the transformation dictated by Q2, Since vc call 
to C2 with a &RFP1*;, qn & not with a we P when in C2„ forget all the 

bindings and ^t^rt with qur origin*! dictionary p except that the binding 
or value of A is not forgotten inside C2> si rtte it wes done with an =SEE 1 >. 

G2 transforms an expression ( (Ji J2 Jl ,, . Jk) ()} into 

( (A Jl J2 Jk) (Jl A J2 -- P ) (Jl J2 A Jk} P „ P (Jl J? P ■ ■ Jk A) ) 

and ^REFT* takes its contents’ as we saw before* -ITER= makes 0 list of 
elements of that form for each value ol J. 


1 


-see definition and examples in next page- 
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D E F E NEC( 

(PERMUTATIONS (LAMBDA (S) (CONVERT 
<) 

(QUOTE( X tXXX) (YYY) )) 

s 

<QUOTEf Cl ( 

( (X) <cx,n ) 

{ (X XXX) C-SKEL" A EXPrL X (=]T U f-e£Gf( = (XXX)) (*RCPT- (J £)} C 2 J 

■ . ))> 

) Cl { 

( ({) (YYY)) C(YYY A>) ) 

( ((X XXX) (YYY)) £ (YYY A X XXX) C*RIEPT* CtXXXJ (YYY X)) )) ) 

))) 

))) 

)) 




r convrt 
U 6 52*4 

] oad ( (rmu L ) ) 

HI L 

permutations ((D) 
(CD) 


permute ti ons ((1 2)) 

(Cl 21 (2 1)) 

permutations ((1 2 3)3 

(Cl 2 3) (2 1 3) (2 3 1) (1 5 2) (3 1 2) (3 2 1)) 
permutations ((a b c d )} 

((A 8 C 0) (8 A C D) (B c A 0) (3 C 0 A) (A C 8 [>) (C A ii D) 
(C SAD) (0 5 U A) (A C D B) (CAD B) (C DAS) (COB A) 

(A B D £) (il A p C) (3 D A C) (B D C A) (AD SC) (D A 3 C) 

(D B A C> (DUO A) (A DOB) (D A C B) (D C A B) (D C B A)) 

permutations (()) 

Nl L 


s top 

R 3. 200+9,11(1 




P 



(^HARK. X L) is intended to identify all the occurrences of the atom 
(or expression) X in the list L. This is done by leaving X as it is, but 
writing tht atom * in place of any other subexpression- Thus f a sublist 
which contains no K : s is replaced by a as are different atoms, However, 
the structure of a subexpression which it not X-free is detained to the exte;::. 
chat all uthcr subexpressions oE the same level are indicated. 

The decision as to whether an expression is X-free is made by the 
pattern XX, defined by {-OR* (*— X -==0 (--- XX --)} which matches any 
list which either directly Contains an X, or contains a sub]tut with a 
similar property. 

DEFINE { { • • .... 


{*f lA RK { LAMBDA (XL) {CONVERT 

{CONS (QUOTE X) (CONS (QUOTE VAR) (CONS X 

(QUOTE f 

XX PAT (-OR* (■== X ==») (*■•* >x -*»=3) 

)))) > 

(QUOTE ( ' ' 

n 

L ..... 

(QUOTE <*0 ( 

{X X) 

(XX ( = I TER* J =5AW&= ( -liEPT * J])) 

(*" O 
)) } 

>)> "' . ■ ■ ■ • 


) > 


r convrt 
IJ 027.0 ' 
load ((nark)) 
ill L 

tjn-jirR (x (1 2 3 (1 2 3 (1 2 x <3 <0 y x] * {£{*> *) ±) y *)) 

(++*(***(*+X**X>X£C(X) •)*)*)+*) 

"mark (x ((( (: i (m fi:i x) 1 0 m) £x >t J n> mj ) > 

((((+(* (+X)+)+){XX)*)*)> 

*n*i r k (0(1 (2 3 ^ x) 5 6 7 x) S 9 0 0 0 0 0) 

*** ERROR A1L5A2 
£(X * 0) U J (2 3 it X) S 6 7 X)) ' 

*marIc (x (1 2 3 r i (i j 3 [1 2 3xS 0 7) cc c)c x x)) 

<* * * * (* * * f* * * x * * *) * * O * X X) 

S f OJJ 

R >,233+[J + 7tb 
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(FOK-TuL L) is a LISP functiflfl dtfitltd through COYEST which will 
transform an algebraic formula written in infix notation to the binary 
prefix form, The argument L, which is the formula to be transformed„ may 
use any variables, connected by the Symbols PL (plus ) t HI (minus), T1 
(times), DI (divide), or FO (power), whose binding strength increases in 
the order mentioned. Thus the usual conventions for avoiding parenthoses 
in associative or distributive configurations apply, 

The CONVERT f-jflcttcn implementing FOE>JUL ia 

B , i a 

Y 

fFORMUL (L^UlUOA ( L ) (CONVERT 

(QUOTE { . 

LL SKEL (-REPT- C*WHEH» (LLL) CL) U) 

RR SKEL ('REPT* (-WHEN- (R-TR) (R) R)) 

)) 

(QUOTE ( 

L R (LLL) (ftHR) 

)) ..... ... 

L 

(QUOTE C‘C ( 

((LLL PL RRR) t PLU LL RR) ) 

((LLL ill RRR) (Ml H LL RR) > 

((LLL TS RRR) (TIM LL RR)) 

((LLL 01 RRR) CD E ^ LL RIO) 

. . ({LLL PU RRR) (PuU LL RR>) 

))) 

))) 


The binding strength hierarchy is datarmittftd by the order in which 
the rules are written; thus no attempt will be to locate a product 

Vi12 be made in any expression which contains a sum, and so on. Since 
CONVERT always makes leftmost (retching fragments as small as possible, 
association ia alleys made to thbright; (i\ PL B PL C) would be transformed 
to (PLU A (P LL' Ei C) ) ■ Any £Xp r e s s ion n ot connected by one, of the five 
admissible aljjehrtic connectors is left unchanged-, The choice cf the 
names of the connectors Is occasioned by LISP 1,5 1 s aversion for the pure 
algeb rai c s iflTVS. 

The skeletons LL and RR serve to analyse the arguments of the 
algebraic connective? further 5S formulae P so that fcirv.ules nay be fooed 
recursively wtzh formulas 55 5ub€xpr£-5Eion5. Moreover, when the fragments 
LLL ox RRR contain only one expression, it f .5 necessary to avoid endowing 
then with a spurious P^-lr of parent h «45 N wherefore the configuration 
(-WHEN- (LLL) (L) I.) . 


■ 
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r corcvrE 

U 2337*0 
load ((Foriviu 3 11 

m L 


foniu.l ((x pi y pi i pi 7 t i x pa D] 

(PLU X (PLU Y (PLU l [Tin 7 (POL, 1 X 2)im 


fornul ((>; ti (y pi z pi 231 j><? 21 > 

[TIM X [POVf ( PLU Y [PLU Z 2 All 21) 

Forrtu i (((x pi 21 ti (z pi y po 3) MpT 3 ti [)) 

[PLU [Till [PLU X 21 (PLU Z {POU V 3))) (TIM 3 Til 

fornul {[(;t pi 2) tl (x pi z po 3) pl 3 ti til 

(PLU (TIM (PLU X 21 (PLU X { POli' Z 3111 ( T M 1 3 Til 



C&OTE3.T Is 'well adapted to making, transformations arising from zht 
word pro-blto- Given strings- -af th&ructerft from some alphabet p one nay 
specify the equivalence of certain strings, Once done, it is reasonable 
to ask whether there. is thereby implied equivalence of a given pair of 
strings.# In order to determine the existence of such an implied equivalence 
one 5sig,h.t systematically seek out the Various strings which are known to have 
equivalents* replacing then by their equivalent in Ordur CO transform one 
member of the pair into the Other* In particular p one might attempt to 
reduce an arbitrarily given string, to a ea^ontcal form# whereas the 
determination of such equivalences is a generally insoluble problem, :nany 
classes of equivalences do in fact lead to do term inace problems, and 
one fray Still be interested in seeing the effect of a given transformation 
strategy in the general case. 

The two programs included here as examples will attempt the reduction 
of a word to canonical form; the strategy is to arrange the letters in 
lexicographic order by rules which describe an alternative form to two 
letters written in the wrong: orders they also attempt to eonCrol Che 
number of consecutive repetitions of Che same lottCc, since one of the rules 
states that some such SCquenc.es are equivalent to the null string, Of course a 
these rules belong Lo an especially simple word problem- 

3 2 

(h’OJD Wj makes such S reduction for the group defined by A" = L h B =1, 

BA = A"3, where powers ire iridiested by repented atoms p the identity by the 
null string, i* ? AAA is delated from any string, as is E E, and B A is 
replaced by A A E, 

(WORD* U> transforms strips accordi^g t o the rules that A 1 A B = C, 

C C c, A A A A., and B B are deleted, C A - A B C C „ C B * A £ C a and 
& A A - A B. 

In each case, the MSHpIee shown are derived by the inclusion of the 
rule {-pKI= -SAME-) As the first rule of the respective rule set. We thereby 
are able to see the step by step trsnsformation of the Input string to its 
final form. 


CHORD (LAMBDA CWJ (CONVERT 
(QUOTE ( 

) ) 

(QUOTE < 

(LLL) < RRRJ 
)) 

W 

(quo tc r*o c 

{=PRI- = SAi-iE* D 

(CUL A A A RfUO (“3EPT= (ILL Rftft J< }) 
((ILL B 3 RRRO C =F2EPT = (LU, RRkJ H 
CCUL 3 A RRR) (*«£?r= {LU A A 3 RflfO)) 
>>> 



(WORD* { LAMBDA f LVJ {CONVERT 
<QUOTE { 

)) 

{QUOTE £ 

(LLU {Rftaj 

J ^ — - —■■ — "■■ - ■ l ™—~w rs wf l 

VI 

{QUOTE {*0 { 

£=J*RI = ■SAME*) 

(<LLl A G A 8 RR R.1 {=REPT“ CELL C RRR>>) 
{(LLL C C C RRR) <«fcEPT* £ LLL SSR) j > 
ft ILL A A A A AAR J <=*REPT« CELL RRR) J) 
C(UL a 6 RRR) {*REPT= {LLL ftRJO) > 

{C LLL c A RRR) { =R£PT= £LLL A a C C RRR) j) 
{CELL C a RRR) £-R£PT= £ LLL ACC RRR) >) 
££LLL BAA RRR? (*REP7 = £ LLL A 3 RRR))) 
>)) 


dock{ {}) word* {£c cccbbbbaaa a)> clock ft) 
■D 

fC C C C 6 B B A A A A A) 

£C B B B 3 A A A A) 

£C B 3 B 6) 

£C B B> 

£C) 

£C) 

3 


clock £()) word* {fccbaaaccbaaacebaaa?) clock £t) 
0 

(CC BAA AC C 5 A A A C C B A A A> 

(CACCAAACC B A A A C C B A A A) 

(A 3 C C C CAAACC B A A A C C a A A A ) 

{A 3 C A A A C C 6 A A A C C B A A A) 

fABABC CAACCBAAACC BAA A) 

(C t C A AC C B A A A C C & A A A) 

(A A C C B A A A C C B A A A) 

{AACACCAAACCSAAA) 

(A A A a C C CCAAACCBAAAl 
£A A A BCAAACC B A A A) 

£ A A A BAB CCA AC C BA A A) 

(A A D C C M C C 0 A A A) 

(AAA A C C B A A A) 

(C C 3 A A A) 

£C A C C A A A) 

(ABCCCCAAA) 

(A ft C A A A) 

£A a A B c C A A) 
fC C C A A) 

(A A) ' 

(A A) 

35 
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clocJ? t ()) word* f fb cab b c C a a b c c a b a b c a b c c a a a)) 

I ■ - 

8. — o ° 

* - cl ock It ) 1 

-■ ■ ■ i _ _ 

o 

(U H B C C AH C C A E A K H C C AAA) 
(BCAB0CCAABCC C C A fl C C A A A] 

C& C A B 3 C C A A BCAECCAAA) 

(3CACCAABCABCCAAA) 

(SA9CCCCAABCA3CCAAA) 

(a A 3 CAA3CABCCAAA) 

(BA BA 3CCASCAEC C A A A} 

(BCCCAECABCCAAA) 

<B A 8 C A S C C A A A) 

(BA BA BCC SC C A A A) 

(BCCCBCCAAA) 

(B B C C A A A) - 
(C C A A A) 

(C A ft C C A A) 

(ARCCBCCAA) 

(ASCCBCAECCA) 

(ASCC B A B C C 6 C' C A) 

(ABCCEABCCBCABCC) 
(AECCBABCCEADCCECCJ 
(ASCACCASCCBABCCBCC1 
(A&ABCCCCAECCBABCCBCO 
(C c c c U 3 C C 3 A a [ c a C C) 

(CCASCC BA sc c a CC) 

(CABCCBCCBABCCBCO 
[A a C C B C C H C e A 3 c c a c c) 

■ CABCACCCCE5CCBAGCCGCC) 

{ABCACBCCBABCCBCO 

(a a a u c c u c e u c c a c o 

(CCCCBCCBA&CCSCC) 

(C BCC C A 3 C D 3 C C) 

(ACCCCBABCC'BCC) 

(ACBABCCBCC) 

(AACCABCCSCC) 

(A AC ABC C BCC EC C) 

(a A a a c c a u a c c » c o 

(AAABCACCCC B C C BCC) 

(A A A 3 C A c a c c a C C) 

(AAA BA EC C C ECCSCC) 

(A A C C t C S C C 3 C Cl 
(AAC ECCSCC) 

(AAACCCCBCC) 

(A A A C B C C) 

(AAAACCCC) 

(A A A AC) 

CC) 

C C) 

74 
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I* Ctirivr't 

W 1552*5 
tbad (CrtCn-d) > 

NIL 

word C ( a b a baa b b b a b a a b b}) 
(A U A A A B 3 BA BAA B B) 

(A M M A i A B A A B B] 

(A B A 3 A A B A B A A) 

[A A A B B A A B A B A A) 

(S B A A B A B A A) 

(A A B A B A A) 

(A A A A 3 3 A AJ 

(ABBA A) 

(A A A) 

HU 

NIL 


fciord ((b b b b f e a a a a a)) 
C B B 3 B A A A AAA A3 
'(a B 3 B A A A A) 

(B B B BA) 

(B B A) 

(A) 

U) 


wo rd ((bbbbboaooaaci )) 
(ft B G 3 B A A A A A A A) 

(3 B 3 3 B A A A A) 

(H B B B A) 

C8 3 £5 A > 

(fl A> 

CA A B) 

(A A lA) 


clock {C)) word ((baa bo a b a a b o a b go bag)) clock ft) 
0 


(B 

A 

A 

L 

A 

A 

S 

A 

A 

3 

A 

A 

R 

A 

A 

3 

■ 

A 

A) 

(A 

A 

3 

A 

3 

A 

A 

3 

A 

A 

3 

A 

A 

3 

A 

A 

B 

A A) 

(A 

A 

A 

1 

A 

3 

B 

A 

■ 

a 

B 

A 

A 

3 

A 

A 

B 

A 

A 

G A A) 

(A 

a 

IB 

A 

A 

3 

A 

A 

B 

A 

A 

3 

A 

A 

G 

A 

A) 


<A 

A 

A 

ft 

A 

A 

B 

A 

A 

3 

A 

A 

& 

A 

a: 




t a 

A 

A 

R 

A 

A 

3 

A 

A 

R 

A 

A) 







(A 

A 

3 

A 

3 

A 

A 

e 

A 

A 

B 

A 

A ] 

i 





(A 

A 

A 

A 

B 

3 

A 

A 

& 

A 

A 

3 

A 

A) 




(A 

B 

3 

A 

A 

B 

A 

A 

B 

A 

A) 








(A 

A 

A 

[! 

A 

A 

B 

A 

A) 










(B 

A 

A 

i3 

A 

A) 













( A 

A 

ft 

A 

A 

A 

A) 












CA 

A 

A 

A 

A 

G 

A 

A) 











CA 

& 

& 

A 

A) 













i 


CA A A) 

nil 

NIL . 

13 
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Sometimes it is mote convexlent to use CONVERT to construct a 
Special purpose program to hand Is a given problem than to try to program 
the problem itself in its full generality. An example of such a situation 
is the program CFERjEN S.i designed to list all the permutations of the set 
S, The Underlying idea is quite simple — to permute the elements of 3 we 
map its first element into any other, including itself, We than map the 
second element into one of those remaining, then the third element Into 
Some unused image, and so on. There are continually fewer alternatives 
available until finally the image cf the last ele-eni is determined fully. 

Assuming that the elements of S are atomic t we cay use them as 
5 ^®l sto:n3 j to be replaced by their images under the permutation, Itl Order 
to assign their images, as well as to vary tlicm in a systematic manner, 
we use the control skeleton -TTEK-j but constructed in advance so as to use 
the elements of 5 as its indices, and to cause them to vary through 

suitably restricted subsets, as the choice of the value of one index restricts 
the range available to ics successors. 


In the examples Shown, the generated skeleton is printed before it is 
executed, which allows one to see how the procedure described above has been 
implemented- Since a generative stage is involved, various skeleton names 
such as *iTER* must be quoted T so that they will not be replaced at the time 
the skeleton Containing themi is constructed; this is done by introducing 
sytiooymns for then in the EXPR node, flT:, for example. 


If wo examine the extopic PERGEH ((A t C>>, we see th*t the intermediate 
skeleton which is generated is 


((MTEF!* A {*C0fiP= <«QU0T- (A B c>) NIL) 
{-QUOT" CA C CJJ (A)) fMTER- C £*C0Mp= 
B)) CA tt CJ)> J J 


C * I TEK* J {*CGeLR = 
(tQiiOT" £A E C>> (A 


The outer iteration allows the variable A to range through the values A f E, or 
C, The second iteration allows the variable b to range through the set 
(-COUP- C^Q (A E £)) (A)), i?e must recall that A is now a variable, sa 
that on the three different occasions that wc will execute the second fi ITER s , 

A will have three different values, and hence the complement, calculated 
during the execution time, will be successively (a Cl", C), and (A E), 

Ie. eKaEcining thu resuib,, 


(<A B C] 1 (A C ti> <U a C> (S C A) (CAE) fC 3 A)) 


we see that A varies most slowly, taking values A „ E, C; then E varies through 
B, C; theft A y Ci finally A, & p uhile C varies most rapidly h ■x'Mcll is unnoticed 
silica its value is forced P 


rM 



r convrt 
W 7 tj 6 ^ a 

load ((pergenJ j 
HJ L 


pergen' £ £a b c) J 


< f *J TEF!.* A { =C0MP* (=qUCT= (A 
£=QUQT“ (A 3 C)) £A)) £* I TER* 
B)) <A B C))))) 

{fA B C) (A C E) (0 A CJ (B C 


B O) HJL) t+ITER* B {=C0iTP = 

C {=C0MP* (*QU0T- (ABC)) CA 

A) (C A B) <0 6 A)} 


pergen ((a b c dJJ 
£ £ ■ ITER* A (*C0MP* 
{= QUOT = (A & C D)J 
CA gjj £* ITER* D ( 
DJ J)))) 


£-QU0T= (A B C D)) NIL.) C * iTER* B C»C0MP= 
£A)) £ * Ift* C C=C0HP" < *=ClU DT= (Ji E C D)) 
CWP= £=QU0T* £ A LI C DJ) £A B C>> (A E C 


f(A ECO) £ A B D C) (A C E D) £ A C D B ) (A D B CJ (A D D 51 
JJ * £ l J ? A D CJ £S C A D) {BCD A) (B £> A C) £E D C A> 
(CARD) fCADB) (C B A 0) (C B & AJ [C D A 3) {CD BA) 

B C) (D A C B) fCEACJ (DEC AJ (D CAB) (0 C 5 A)) 


£0 A 


5 tO]> 

ft 966*5*733 


pr i ri- L per gen i i sp 

U 71*0.6 


PEfiCEN LISP 03/21) C74B.7 


DEFINE £( 

CPERCEN (LAI-)BDA {&) (CONVERT 
£ QUOTE { 


7T 

PAY 

<T TTT) 

i IT: 

EXPR 

* 1 TER* 

ECO; 

EXPR 

*C0J-1P= 

jQU: 

EX PR 

*QU0T= 

)) 




(QUOTE ( 

I (TTT) 

> ) 


(QUOTE £*1 { 
£== C“S K E L■ $ 
£TT £il7: 
{IT f: TT: 
ff) GJ 


EX PR * SAME- £-SKEL= q SK£L (=PllNT* t£=REPT* S *7 ( 

T { : CO : £ EQU; S) < = C0J-!P* 3 TV)) £*F3EPT = (TTT)))) 

T (:Cn; ClUU: S> (:QU; (*C0riP = S TT>>) (-FiEPT* £TTT))>) 


.) > > > fUJ> 

) J J 


)) 

R ,816-.553 
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TJie Peissoti Bracket, [f + g] of two Functions, f(p,i -q.) and 
g(p . Rf) is defined By the formula 

T 

Iri 3 y * f ; S’f-' 

Howavat, it is -possible to give an axiomatic treatment to the Poisson fif&tkcfc 
by noticing that it is alternating bilinear functional which is al£o a 
derivative. That is to s&y > it obeys the rules 

1- If* %\ m - [gp f] 

2- [af + h% ? h] - o[f ? h] * h [g w h] 

3r [f E> h] - f[g, h] +■ [f B h]g 

as well as the ucrmalls&tion renditions 

l? L f ?y ^ ft 

[q m pi ■ 1 if i ■* j; 0 otherwise 
1 J 

Eq^n q*l ■ ft- 

It is therefore possible to program the calculation of the Potsscn Bracket of 
polynomials in the coordinates q and momenta p. as a syebol manipulation 
program effecting the transformations implied by the axioms . Unfortunately 
Ehe axioms in their simplest form introduce a great number of spurious factors 
and summands which are either 0 or 1* or equivalent to the” after some 
adjustmentr It is therefore desirable to incorporate an algebraic simplification 
program with the Poisson Bracket calculation at least powerful enough to 
counteract the trivial factors and summands introduced by the differentiation 
process r 

This simplification occupupies the greater part cf the volume of the 
program- For example, sums arc simplified by removing ZfcrO SLUraiLafldfi* Summing 
numerical auneands^ bringing numerical summands to the leftmost position F 
bringing negative signs to the outermost level P applying the associative law 
Co write multiple sums without parenthoses-, and trying to Improve numerical 
factors whereever possible- differences and negatives are principally 
simplified by eliminating z-ero arguments and computing numerical negatives 
whereever possible. Product simpLi:icatian is very similar to sum simplification; 
a product containing a numerical zero factor Is at once sat equal to zero* 
factors of one are excluded, numerical factors are multiplied* preference is 
given to the power representation, and sn The trivial c@ses of exponents 

arc reduced - 

Input to the program CPB X Yj Is in the form of polynomials written 
In Infix notation with the algebraic connectors PL {plus) , HI fminus) * TE 
ttime s) * and PD (power) ■ Conjugate variabla-eictieLita pairs consist of an atom, as 
X to represent the coordinate* and the sati.e acos inclosed In parentheses* as 
(X) * to represent the conjugate mooient uid , Intermediate calculations a it dent 
in prefix functional form* but the output is agein presented In infix notation. 
Little simplification not occasioned by the derivation process is mad ft ? thus 
a negative psir of terms which are separated* or which differ in the inzeroal 
•arrangement of th*ir sub^Xpr^sions will not b& replaced by Earo a for exszr_p£e„ 



{PR, CIAMFIHA { y. Y) {rorvnPT 
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A rat, upon being introduced to a new maze* £b imnadlately interested 
in learning all thu paths leading between various pairs of points . The 
interest of a mathematician is more modest and yet more systematic, since oncfe 
a program is given for finding all tbe paths hetween one pair of paints, that 
pair being arbitrary, there e^ist known methods for solving the general 
ease* To find all paths between a pair of points* we may suppose that tht 
paints are in fact identical, and that moreover, we are not interested in 
loops which lead iro:^ s point to itself. Such not being the case a it would 
be possible that we have a pair u£ points whidh are directly linked, through 
a primitive path. Neither being the ease* wc might consider the inagO set o£ 
cur initial point, by which we meah the set of all points linked to the initial 
point by a flon-null. primitive path* and th* counterimage set of the final point* 
meaning the set of points linked to the final point by a Single primitive path. 

3f we form the cartesian product 0:£ the image set and the countcrImage set d 
and Suppose known all paths linking those pairs of points a point in the 
image set one step away f roa the initial point to a point in the counterimage 
set, likewise One Step away free: the final point —™ wo thou have a recursive 
solution to the original problem. 

For mathematical - or computer - consideration ve must have a 

representation of the mass which is to be studied* and this is conveniently 
given by a list of the primitive links* the pair of points {X Y) belonging to 
the link list L if a path joins X to Y. We may suppose chis is a directed 
path 3 and insist that (Y X) also appear in the list if the path Is bidirectional* 

A pair of points is then ccnnected if there exist links (A XI) (XI X2) 

■ r r (Xi Xi-s-1) ... £Xn B) all belonging tc the list I., A and B hein^ the initia” 
and final point respectively. Such a link may exist in one direction but not 
the other. 

An effective way to avoid loops in enumerating the paths is to re-ove 
the initial and final points from consideration in the inductive scep 3 since 
any path arriving eventually at the initial point must form 3 loop, ns vtll bs 
a path to the final point initiating from the final point, 

In the program (PATHS A E M) 3 a is the initial point, b Is the final point, 
and t[ is the link list. A and E are variables within the program enjoying a 
similar significance. (LLL) and (RRR) are. fragments retaining the left nrd 
right halves of a list which we analyze. The bucket variables ate respectively 
A fi which collects the elements of the imag& set 3 H* which collects the 
elements af the counterimage sec F and X which Colletts links not originating or 
terminating from A or E_ The fragment pattern {UO} 

(("OR* ((A A*) UU) ({*= A) lib) ((E> E) UU) ((* ™) UU) a W) {))) 

is used to see the link list decomposed by the bucket variables; X will become 
the new Idnk list in the recurslye subproblem. 

Hie key rule i& 

((A E (UU)) (-3TER- I A* J <k) (-REFT- (I J X)) (A K E)}> 

which sees the initial and final point together with the link list decomposed 

into the image set, counter image set* and link Use from which t.he initial 

and final points have been eliminated. For each pair of elements from A* and B* a 

the process repeated* ard to thfl path list-a list of points forming the 

joining path -is appended the outer points A and B. 


j- 



This rule definea the the repetitive condition cf the CONVERT program; 
the terminal conditions arise when wv encounter a pair e£ points which tut^l cm 
tg be in fact the sa^e ? or a pair which are directly linked . In the latter 
case we search far atty additional indirect Link?;. 

Should W* eventually exhaust the link list without the ends joining 
we produce n null frag-Cnt wbich 3 by producing a vacuous index set for -1TER=, 
causes che tentatively famed chain to be discarded „ 



rta- 'T R I k L 1 ■ 

One of the problerne solved b;- the function (PATH& A E N)-, 
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(PATHS (LAMBDA (A S M (CONVERT ■ ■ ■ 

(QUOTE ( ■ ■ 

(UU) PAT U*GA* < (A A*)UU> ( {= = A)UU) ((3* B)UU) ((3 =«)UU3 (X UU) [>) J 

A+ SUV >■ = - - —— •■ - . . -l—----— ■- . —. 

B* SUV -- 

X 31) V -» ...... . - ... 

n 

(QUOTE C A £ (LLL) (RftR) J ) .. 

(LEST A S M) 

(QUOTE ( +0 ( --- - ...1 - - -•-._... __ 

C (A A =*) ((A)) ) 

( (A & (LLL (A E> RRR)) ( J A B) (*REPT* (A 3 (LLL FiJlFi))) J ) 

( (A 3 (UU > > (■ 1 TER= E A" J &* C K > (■=REPT = (1 0 X)) [A £ S) ) } 

t -=■ n > 

)>) 

CSET (TRIAL ((0 I) (0 2) (0 Jj ( 0 (,) (1 QJ (2 0) 

-(3 0) (it G) (1 2 ) (1 4} (2 3) {it J})) 


Fig, 'T E I A L 1 , 
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l (> )) 


Fig. ’M E $ 
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e fL'atlis (quote a) (quote b) mesh) clock (t) 


b (psths Cquote b) (quote ej rnesh) 
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clock Ct> 


dock ({)) c fpat h s (quote c) 
0 

IE I L 
SB 

clock ([)) e (paths (quote 3) 
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N I L 
16 

dock (()) c (uotks (quote d) 
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((D F) CD E F> CD E tl F) (P E 
£0 II F)> 
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dock {()) o Cuetiia (quote f) 
0 

(<F 0 ) (FHGD)CFHEGD) 

E H D) ) 
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(quote h) mesh) clock (t) 


(quote g) mesh) clock (t) 


(quote f) me&h) clock Ct) 

G H F> (ONE F) (D H G E F) 

Cquote d> fresh) clock ( t) 
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clyck ft)] e (paths (quote hJ (quote f) wcsFO 
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excise ft) 
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print lisp 

W 216,8 

PATHS U5P 54/0 2 n2115,8 
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n — " - P 1 " 

5EFINF ££ 

(PATMS ( LAM"$"l A CA T 

(dime ( 

fUUl PAT UOR* ({A 
A* R.IJ V = = 

□ * TI.IV = = 


r-i) (cn'ivrRi 
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-■ “■ ' t " . ■— i s s ■ ■ ■ -i ■ i -mvr jr j f-j ■ 'I- a .i j x ... . l...... . . ....... ... 

A *) IJ U > ££= = A )UU) (fS+ H)'JE.P> (<H (X UUJ C J) ) 
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{ U A f L L L (A T) HTR).) {{A 3> ('REPT* (A 3 f ILL m)))) ) 

f £ A p> CUUU C"17FR« I A* J A* (K) (=R^PT= £1 J X)} (\ K ) 

f »= {) J . 
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f F F> £F ft) (£ H) (F H> (F ft) £F 0) 

(ft p> fn HJ frj FI £H 0) (H FI (H ft) CII F) 

inn 
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Polynomial manipuLotion t% complicated by the fact that a giver, 
polynomial O^rt be written In S wide variety of equivalent for^s^ and It 
Is therefore convenient to reduce a polynomial to a one convenient standard 
fOffli before us tog it In fytffher Calculations, (EOLY) is a function^ defined 
in CONVERT h for making such a reduction s and sc:ue further simple mar,ipulstiocs. 
1c is a function of rtO variables because it reads in instruct ions T and data., 
from the teletype console, 

Ve first define a polynomial; this is done in terms cf =?» which 
recognises polynomials K and *F* B which r-c-cognize^ polynomial fragment?:* 

A polytiOtaiil is defined recursively as one of the following 

a dumber 

the variable p k 

two fragments connected by a plus sign 

tvo fragments connected by a minus sign, such that 

the right fragment Itself contains no minus sign* 
minus a polynomial 

fragments connected by a product sign 
a polynomial to a positive power 

In its turn a. polynomial fragment Is either” 

a 

i 

a polynomial 

tf ?v,i ef twb fragments 

o difference of two fragments„ the sscond containing no 
minus 

a product of two fragments 

Allowing polynomial fragments permits one to mate use of the 
associativa properties of addition and multiplication by writing multiple 
ftLims OF products urichduC explicit parentheses to specify the association. 

The rules nhove ti$vse a right association in testing a polynomial a except 
for m lnu.s. A1 thou gh no c o I'd "i n? r I 3 y S n ass oc i a t j.vc opera t ion ^ conv ant Ion 
holds that (a-b-C-d) should bfc (((a - b) - c) - d) >, or a *■ Cb +■ c +■ d) ■ 

In splitting n polynomial I into two fragments separated by a minus sign, it 
Is thus necessary to see Chit the right fragment does not contain e minus. 

In such ^ context a nonary minus will always cause confusion If It is not 
parenthesized when it Conflicts with a productj le we do net allow x * - y. 

A1 though 11 ic =0R- defining a po 1 y nami a I r esemb] es t he jso-c a lied 
"Backus Normal Fora" it must be remembered ihat the alternatives of the 
-DR- are sw^ght In order ? £0 that a polynomial is decomposed as a product 
only if l.t cannot be decomposed as a sum or as a difference H The order 
in which the algebraic connect ots are written therefore determines their 
binding, strength, $od on this account parentheses r ; .ay be omitted when they 
would close terms joined by the stronger connective. 

Similar in operation is the function NOR which reduces a polynomial 
to its internal represent^on N which is a list oF its coefficients when 
written in the form 

^ 3 " ti 

pfxl = a_ ■+ j. x + a_x -h a.x‘ 4 -f a H ■ 

■-J 1 d j n 

Its repre?entgt.ion would then be 

{il 0 a l a 2 °3 ■ • • • • 


f 



The operation^ which one for polynomials nay be aade for the 

internal representation, we hare 

PH? s-utrii polynomials by summing, corresponding coefficients 3 

if they are &£ different degrees the high order 
coefficients are appended to the sjdl of the common 
coefficl euta . 

as a senary opera ti bn* multiplies each coefficient by -L„ and 

a binary operation, works analogously to FLU. 

multiplies twa polynomials by the rule {a + S|X p 1 (x)) q(x) 11 
a q(xj + a.* p'Mqfx)., where p p {x?^(x) l£ computed 
recursively, ^Cultiplicst ion by a constant £s effected 
by mu1Ciplying each coefficient of q by that Constant h 
jfid multiplication by x is effected by shifting 
adjoining a Etrc to the front of the coefficient list. 

is realised by repeated multiplication* and no effort at 

optimisation is mads by making a binary decomposition of the 
power.. 

The terminal cases see the variable! which is rep]need by {0 \) t and - 
a constant > which is replaced by (a). Reduction to the form of the internal 
representation is then effected by recognising the pcgg-ibl^ combinations which 
fulfil the definition af ^ polynomial> and performing the indicated arithmetic 
with respect to the represe?itatton-list ■ 

The functions PRb ind FKR serve to convert the internal representation 
into a regular polynomial fornn Ft*R writes the standard sum— a £-powers 
according to which polynomials arc generally written and eunt^ins provision 
tg write a in placg of 0*x , and h^x in place of b*x > as well as vrititig 
x in place of l*x a which is- Standard practice. The function PRJJ tr*ne£ottn* 
the list . .. - n^) to the product form 

p{x) = (a + x*<a. H 1 x*{a,, + ... x^[a _ +■ x*a ) ...))) 
w j. ^ n"-± n 

which is preferable, for evaluation of a polynomial because it ftitpimlzes thfr 

amount of multiplication,, A similar decomposition is used by the function 

VAL> which. evalu01 £S the po 1 y Mini a 1 at a dealg.nated point. 

Finally, the execution of the function {POLY) is cr>3Ptrolled by a 
program containing a read loop. The a-inissable instructions are very simple . 
and could be considerably extended to pexfora a variety of polynomial 
operations■ 

E a evaluates the polynomial in tho workspace at the point a 

I p places the polynpmicl p, input fron the console, in the 

workspace- p may actually be any quantity* 

N form the internal representation of the polynomial in the 

workspace h which replaces the workspace, - 

0 print the workspace P 

S terminate the pro&r?-ru 

X e Execute the expression e. tnpuL fche Console, which rtfy be 
any convert skeleton admissible to (VOU Y)■ 

Output tlit: workspace in the polynomial £Un_-cf-p^wtrs fotr-; 
actually^ the workspace assumed to be in internal 
representation;, is transformed to this form and placed 
in the workspace,, and must h output with 0# 


HIN 

TLH 

FOtf 


¥ 
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Z trsnsfcrm the workspace co the eConori? 6 d foils, assuming that 

the workspace contafns the internsI list form, 

TS place the workspace In temporary storage. 

(TE) place temporary storage ft the workspace. 

Any command given, ff it is not atomic and in the form of a list 
wiJ 1 be treated as a series of Command a to ba executed, ate! the same 
Interpretation will he applied to the list elements In turn, thus, 

(i n o} p will read p, change it to internal form, and! write this form. 

This program performs on"y the rudiments of polynomial manipulation^ 
Ofia could think of extending it to the generation of interpolation 
polynomials, numerical Integration and differentiation formulas, and 
diverse other applications- 
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